www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\Include\cls_class2.asp

    <%
Class Cls_Tags
	Public Sub Get_Tags
		Response.Write("<table width='"&Web_TPageWidth&"' height='20'  border='0' align='center' cellpadding='0' cellspacing='0'>"&vbcr)
		Response.Write("<tr>"&vbcr)
		Response.Write("<td height='25' class='ptttd1'></td>"&vbcr)
		Response.Write("</tr>"&vbcr)
		Response.Write("</table>"&vbcr)
		Response.Write("<table width='"&Web_TPageWidth&"' height='20'  border='0' align='center' cellpadding='0' cellspacing='0'>"&vbcr)
		Response.Write("<tr>"&vbcr)
		Response.Write("<td height='25' class='ptttd1'>&nbsp;所有信息分类</td>"&vbcr)
		Response.Write("</tr>"&vbcr)
		Response.Write("</table>"&vbcr)
		Response.Write("<table width='"&Web_TPageWidth&"' height='1'  border='0' align='center' cellpadding='0' cellspacing='0'>"&vbcr)
		Response.Write("<tr>"&vbcr)
		Response.Write("<td background='Images/dot.jpg'></td>"&vbcr)
		Response.Write("</tr>"&vbcr)
		Response.Write("</table>"&vbcr)
		Response.Write("<table width='"& Web_TPageWidth-80 &"'  border='0' align='center' cellpadding='0' cellspacing='0' height='60%'>"&vbcr)
		Response.Write("<tr>"&vbcr)
		Response.Write("<td valign='top'><br />"&vbcr)
			Set Rs_tags = Server.CreateObject("adodb.recordset")			
			Sql = "SELECT Liangjing_srctags.srctag_tagid, Count(Liangjing_SrcTags.SrcTag_id) AS Tag_Count,(select tag_name from Liangjing_tags where tag_id=Liangjing_srctags.srctag_tagid) as tag_name FROM Liangjing_SrcTags where Liangjing_srctags.srctag_ttype=true GROUP BY Liangjing_srctags.srctag_tagid Order By Count(Liangjing_SrcTags.SrcTag_id) Desc"			
			Rs_tags.open Sql,conn,1,2
			While not Rs_tags.Eof
				font_Size = 11
				font_Size = font_Size + (Rs_tags("Tag_Count") \ 2)				
				Response.Write("<a href='index.asp?Tags_ID="&Rs_tags("srctag_tagid")&"'><span style='font-size:"&font_size&"px;'>" & Rs_tags("tag_name") &"</span></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
				Rs_tags.MoveNext
			Wend
			Rs_tags.close			
			Sql = "SELECT Liangjing_srctags.srctag_name, Count(Liangjing_SrcTags.SrcTag_id) AS Tag_Count FROM Liangjing_SrcTags where Liangjing_srctags.srctag_ttype=false GROUP BY Liangjing_srctags.srctag_name Order By Count(Liangjing_SrcTags.SrcTag_id) Desc"
			Rs_tags.open Sql,conn,1,2
			While not Rs_tags.Eof
				font_Size = 11
				font_Size = font_Size + (Rs_tags("Tag_Count") \ 2)				
				Response.Write("<a href='index.asp?Tags_Name="&trim(Rs_tags("srctag_Name"))&"'><span style='font-size:"&font_size&"px;'>" & Rs_tags("srctag_Name")&"</span></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
				Rs_tags.MoveNext
			Wend
			Rs_tags.close
			Set Rs_tags = nothing			
		Response.Write("</td>"&vbcr)
		Response.Write("</tr>"&vbcr)
		Response.Write("</table>"&vbcr)
	End Sub	
End Class
Class Cls_Login
	Public Sub Get_Login
		Response.Write("<table height='20'  border='0' align='center' cellpadding='0' cellspacing='0'>"&vbcr)
		Response.Write("<tr><td></td></tr>"&vbcr)
		Response.Write("</table>"&vbcr)
		Response.Write("<table  height='20'  border='0' align='center' cellpadding='0' cellspacing='0'>"&vbcr)
		Response.Write("<tr><td height='25' class='ptttd1'>进入"&Web_Name&webParmter&"</td></tr>"&vbcr)
		Response.Write("</table>"&vbcr)
		Response.Write("<table height='1'  border='0' align='center' cellpadding='0' cellspacing='0'>"&vbcr)
		Response.Write("<tr><td background='Images/dot.jpg'></td></tr>"&vbcr)
		Response.Write("</table>"&vbcr)
		Response.Write("<table  border='0' align='center' cellpadding='0' cellspacing='0'>"&vbcr)
		Response.Write("<form action='login.asp' method='post' name='frmdata' onSubmit='return frm_onsubmit(this);'>"&vbcr)
		Response.Write("<tr>"&vbcr)
		Response.Write("<td>你的email地址:<br/>"&vbcr)
		Response.Write("<input name='user_email' type='text' size='24' maxlength='60' value='"&request.cookies("_tempuser_email") &"' />"&vbcr)
		Response.Write("<br/><br/>"&vbcr)
		Response.Write("你在"&Web_Name&"的注册密码:<br/>"&vbcr)
		Response.Write("<input name='user_pass' type='password' size='24' maxlength='60'/><br/>"&vbcr)
		Response.Write("<a href='register.asp'><font style=""color:red;"">我还没有账号</font></a>&nbsp;&nbsp;<a href='ForgetPass.asp'>忘记密码了</a>"&vbcr)
		if Request("Msg") <>"" then Response.Write("<font color='#ff0000'>【" & Request("Msg") & "】</font>")
		Response.Write("<br /><br />"&vbcr)
		Response.Write("<input name='user_login' style=""height:26px;width:100px;"" class='butt' type='submit' value=' 进 入 '/>"&vbcr)
		Response.Write("<input type='hidden' name='action' value='check'>"&vbcr)
		Response.Write("<input type='hidden' name='page' value='"&Request("page")&"'>"&vbcr)
		Response.Write("&nbsp;&nbsp;&nbsp;<input  style=""height:26px;width:100px;""  type= ""reset""   name= ""Submit2"" value="" 重 填 ""   width= ""71""   height=""27"">")
		Response.Write("&nbsp;"&vbcr)
		Response.Write("</td>"&vbcr)
		Response.Write("</tr>"&vbcr)		
		Response.Write("</form>	"&vbcr)	
		Response.Write("</table>"&vbcr)
		Response.Write("<table height='1'  border='0' align='center' cellpadding='0' cellspacing='0'>"&vbcr)
		Response.Write("<tr>"&vbcr)
		Response.Write("<td background='Images/dot.jpg'></td>"&vbcr)
		Response.Write("</tr>"&vbcr)
		Response.Write("</table>"&vbcr)
	End Sub
End Class
Class Cls_SrcRevert
	Public Sub Get_SrcRevert
		Response.Write("<table width='"&Web_TPageWidth&"' height='20'  border='0' align='center' cellpadding='0' cellspacing='0'>"&vbcr)
		Response.Write("<tr><td></td></tr>"&vbcr)
		Response.Write("</table>"&vbcr)
		Response.Write("<table width='"&Web_TPageWidth&"' height='20'  border='0' align='center' cellpadding='0' cellspacing='0'>"&vbcr)
		Response.Write("<tr><td height='25'><span class='ptttd1'>你对“"&Server.HTMLEncode(RS("Src_Title"))&"” 的评论 </span></td></tr>"&vbcr)
		Response.Write("</table>"&vbcr)
		Response.Write("<br />"&vbcr)
		Response.Write("<table width='"&Web_TPageWidth&"'  border='0' align='center' cellpadding='0' cellspacing='0'>"&vbcr)
		Response.Write("<tr>"&vbcr)
		Response.Write("<td>"&vbcr)
		Response.Write("<table width='98%'  border='0' align='center' cellpadding='0' cellspacing='0'>"&vbcr)
		Response.Write("<tr></tr><tr><td height='1' background='Images/dot.jpg'></td></tr>"&vbcr)
		Response.Write("<tr><td height='5'></td></tr>"&vbcr)
		Response.Write("</table>"&vbcr)
		Response.Write("<form action='SrcRevert.asp' method='post' name='frmdata' onSubmit='return frm_onsubmit(this);'>"&vbcr)
		Response.Write("<table width='98%'  border='0' align='center' cellpadding='0' cellspacing='3'>"&vbcr)
		Response.Write("<tr><td><textarea name='rev_content' rows='20' cols='55'></textarea></td></tr>"&vbcr)
		Response.Write("<tr>"&vbcr)
		Response.Write("<td><input name='rev_submit2' type='submit' value='好了，添加评论'/>&nbsp;&nbsp;&nbsp;"&vbcr)
		Response.Write("<input name='rev_cancel2' type='button' value='撤消' onClick='javascript:history.back();'/>"&vbcr)
		Response.Write("<input type='hidden' name='action' value='AddRev' />"&vbcr)
		Response.Write("<input type='hidden' name='Src_ID' value='"&Src_ID&"' />"&vbcr)
		Response.Write("</td>"&vbcr)
		Response.Write("</tr>"&vbcr)
		Response.Write("</table>"&vbcr)
		Response.Write("</form>"&vbcr)	
		Response.Write("</td>"&vbcr)
		Response.Write("<td width='1' bgcolor='#E1E1E1'></td>"&vbcr)
		Response.Write("<td width='"&Web_RightWidth&"' valign='top'><table width='95%'  border='0' align='center' cellpadding='0' cellspacing='0'>"&vbcr)
		Response.Write("<tr>"&vbcr)
		Response.Write("<td><span class='mn'>感谢你和大家分享你的意见...... </span>"&vbcr)
		Response.Write("<p>请勿在评论中转载他人的文章。<br />"&vbcr)
		Response.Write("<br />"&vbcr)
		Response.Write("<br />"&vbcr)
		Response.Write("为了鼓励有益的分享, 评论设有10字的最低字数要求。请大家认真填写哦！！这可是展现自己的时候到了 呵呵！！</p>"&vbcr)
        Call WoDig.MquerLogin()
		Response.Write("</td>"&vbcr)
		Response.Write("</tr>"&vbcr)
		Response.Write("</table></td>"&vbcr)
		Response.Write("</tr>"&vbcr)
		Response.Write("</table>"&vbcr)
	End Sub
End Class
Class Cls_ShowMsg2
	Public Sub Get_ShowMsg
		Call WoDig.Get_Line
		Response.Write("<TABLE  width='95%' border=0 align='center' cellPadding=2 cellSpacing=0 class=line>"&Vbcr)
		Response.Write("<TR>"&Vbcr)
		Response.Write("<TD vAlign=top width='81%'>"&Vbcr)
		Response.Write("<TABLE height='' cellSpacing=2 cellPadding=2 width='100%' border=0>"&Vbcr)
		Response.Write("<TR>"&Vbcr)
		Response.Write("<TD vAlign=top height='100%'>"&Vbcr)
		Response.Write("<TABLE class=line2 cellSpacing=0 cellPadding=3 width='100%' border=0>"&Vbcr)
		Response.Write("<TR>"&Vbcr)
		Response.Write("<TD><P class='txt_12'>"&Vbcr)
		Src_Desc =Rs_Msg("Msg_Content")
		Response.Write(Src_Desc)
		Response.Write("</P>"&Vbcr)
		Response.Write("</TD>"&Vbcr)
		Response.Write("</TR>"&Vbcr)
		Response.Write("</TABLE>"&Vbcr)
		Response.Write("</TD>"&Vbcr)
		Response.Write("</TR>"&Vbcr)
		Response.Write("</TABLE>"&Vbcr)
		Response.Write("</TD>"&Vbcr)
		Response.Write("</TR>"&Vbcr)
		Response.Write("<TR>"&Vbcr)
		Response.Write("<TD vAlign=top>&nbsp;"&Rs_Msg("Msg_AddDate")&"：<span style='font-weight: bold'>"&Rs_Msg("Msg_Source")&"</span>&nbsp;&nbsp;&nbsp;&nbsp;[<a href='javascript:window.close();'>关闭</a>]</TD>"&Vbcr)
		Response.Write("</TR>"&Vbcr)
		Response.Write("</TABLE>	"&Vbcr)
        Call WoDig.Get_Line
		Rs_Msg.Close
		Set Rs_Msg = nothing
	End Sub
End Class
Class Cls_EditRevert
	Public Sub Get_EditRevert
		Response.Write("<table width='"&Web_TPageWidth&"' height='20'  border='0' align='center' cellpadding='0' cellspacing='0'>"&Vbcr)
		Response.Write("<tr><td></td></tr>"&Vbcr)
		Response.Write("</table>"&Vbcr)
		Response.Write("<table width='"&Web_TPageWidth&"' height='20'  border='0' align='center' cellpadding='0' cellspacing='0'>"&Vbcr)
		Response.Write("<tr><td height='25'><span class='ptttd1'>你对“"&Src_Title&"” 的评论 </span></td></tr>"&Vbcr)
		Response.Write("</table>"&Vbcr)
		Response.Write("<br />"&Vbcr)
		Response.Write("<table width='"&Web_TPageWidth&"'  border='0' align='center' cellpadding='0' cellspacing='0'>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td><table width='98%'  border='0' align='center' cellpadding='0' cellspacing='0'>"&Vbcr)
		Response.Write("<tr> </tr>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td height='1' background='Images/dot.jpg'></td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td height='5'></td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("</table> "&Vbcr)   
		Response.Write("<form action='EditRevert.asp' method='post' name='frmdata' onSubmit='return frm_onsubmit(this);'>"&Vbcr)
		Set Rs_Re = Server.CreateObject("adodb.recordset")
		Sql_Re = "Select * from Liangjing_SrcRevert Where Re_ID="&re_ID
		if Session("_WIsSupper") = false then	'如果不是管理员，就应该对回复内容的所有人进行判断
		Sql_Re = Sql_Re & " and Re_UserID="&Session("_WUserID")
		end if
		Rs_Re.open Sql_Re,conn		
		if not Rs_Re.eof then			
		Re_Content= Rs_Re("Re_Content")
		else
		'无权限编辑。。。
		Call MsgBox2("哈哈，您有点越轨行为哦！",1,"javascript:history.back();")
		Response.End()
		end if
		Rs_Re.close
		Set Rs_Re = nothing
		Response.Write("<table width='98%'  border='0' align='center' cellpadding='0' cellspacing='3'>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td><textarea name='rev_content' rows='20' cols='55'>"&Re_Content&"</textarea></td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td><input name='rev_submit2' type='submit' value='好了，修改评论'/>"&Vbcr)
		Response.Write("&nbsp;&nbsp;&nbsp;"&Vbcr)
		Response.Write("<input name='rev_cancel2' type='button' value='返回' onclick='javascript:history.back();'/>"&Vbcr)
		Response.Write("<input type='hidden' name='action' value='EditRev' />"&Vbcr)
		Response.Write("<input type='hidden' name='Src_ID' value='"&Src_ID&"' />"&Vbcr)
		Response.Write("<input type='hidden' name='Re_ID' value='"&Re_ID&"' />"&Vbcr)
		Response.Write("</td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("</table>"&Vbcr)
		Response.Write("</form>"&Vbcr)	
		Response.Write("</td>"&Vbcr)
		Response.Write("<td width='1' bgcolor='#E1E1E1'></td>"&Vbcr)
		Response.Write("<td width='300' valign='top'><table width='95%'  border='0' align='center' cellpadding='0' cellspacing='0'>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td><span class='mn'>感谢你和大家分享你的意见...... </span>"&vbcr)
		Response.Write("<p>请勿在评论中转载他人的文章。<br />"&vbcr)
		Response.Write("<br />"&vbcr)
		Response.Write("<br />"&vbcr)
		Response.Write("为了鼓励有益的分享, 评论设有10字的最低字数要求。请大家认真填写哦！！这可是展现自己的时候到了 呵呵！！</p></td>"&vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("</table></td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("</table>"&Vbcr)
	End Sub
End Class
Class Cls_SrcSubmit
	Public Function Get_Submit()
		if Session("_WUserID") = "" then
			Response.Redirect("login.asp?Page=SrcSubmit.asp||Src_ID$"&Src_ID)
		end if
		
		action = request.Form("action")
		Set Rs = Server.CreateObject("adodb.recordset")	
		
		if action = "addSrc" then	
		
			if  trim(Request.Form("src_Desc"))="" then 
				response.write"<script>alert('内容不能为空!');history.go(-1);</script>"
				response.end
			end if
		
			SelSysTags = Request("SelSysTags")
			Sql = "Select * from Liangjing_Source Where 1>2"
			Rs.open Sql,conn,1,2
			Rs.AddNew			
				Rs("src_UserID")	= Session("_WUserID")
				Rs("src_TypeID")	= Session("_WTypeID")
				Rs("src_ChildID")	= Request.Form("src_ChildID")
				Rs("src_Title")		= Request.Form("src_Title")
				Rs("src_Desc")		= Request.Form("src_Desc")
				if Web_IsUploadShowImg = 1 then 
					src_Img 			= Request.Form("src_Img")	
					if isNull(src_Img) or src_Img = "" then src_Img = Web_Noimage
					Rs("src_Img")		= src_Img
				end if
				if Web_SrcUrlShow=true then
				    rs("src_Url")=trim(request.form("src_Url"))
				end if
				Rs("Src_HitUpdate")	= now()
				Rs("src_IP")		= Request.ServerVariables("REMOTE_ADDR")
				Rs("src_AddDate")	= Now()
				Rs("src_ModifyDate")= Now()
				Rs("Src_RevertNum")		= "0"
			Rs.Update
			Rs.Close
			Set Rs = Nothing
			'取出刚添加的资源
			Max_SrcID = Conn.Execute("Select Max(Src_ID) From Liangjing_Source")(0)
			Sql_Hit = "Insert into Liangjing_SrcHit(Hit_SrcID,Hit_UserID,Hit_Time,Hit_IP) Values(" & Max_SrcID & ",'" & Session("_WUserID") & "','" & Now() & "','" & Request.ServerVariables("REMOTE_ADDR") & "')"
			Conn.Execute(Sql_Hit)	'先顶一下
			if err.number = 0 then		
				'添加系统标签。。。
				SelSysTags_Arr = split(SelSysTags,",")
				for i = lbound(SelSysTags_Arr) to ubound(SelSysTags_Arr)
					Sql = "Insert Into Liangjing_SrcTags(SrcTag_SrcID,SrcTag_TagID,SrcTag_TType,SrcTag_IP) " & _
						"Values("&Max_SrcID&","&SelSysTags_Arr(i)&",true,'"&Request.ServerVariables("REMOTE_ADDR")&"')"					
					Conn.Execute(Sql)
				next
				
				'取出自定义标签
				src_tags1 = Request("src_tags1")
				src_tags2 = Request("src_tags2")
				src_tags3 = Request("src_tags3")
				if src_tags1 <> "" then
					Call Wodig.Add_NewTags(Max_SrcID,src_tags1)
				end if
				if src_tags1 <> "" then
					Call Wodig.Add_NewTags(Max_SrcID,src_tags2)
				end if
				if src_tags1 <> "" then
					Call Wodig.Add_NewTags(Max_SrcID,src_tags3)
				end if		
				Src_ID_2 = Conn.execute("select max(src_id) from Liangjing_source")(0)
				Url = "SrcShow.asp?Src_ID="&Src_ID_2
				Response.Redirect(Url)
				Response.End()
			end if	
			Set Rs = nothing
			Response.End()
		end if
	End Function



	Public Sub Get_SrcSubmit
		Response.Write("<table width='"&Web_TPageWidth&"' height='20'  border='0' align='center' cellpadding='0' cellspacing='0'>"&Vbcr)
		Response.Write("<tr><td></td></tr>"&Vbcr)
		Response.Write("</table>"&Vbcr)
		Response.Write("<table width='"&Web_TPageWidth&"' height='20'  border='0' align='center' cellpadding='0' cellspacing='0'>"&Vbcr)
		Response.Write("<tr><td height='25' class='ptttd1'>我有信息要发布：</td></tr>"&Vbcr)
		Response.Write("</table>"&Vbcr)
		Response.Write("<table width='"&Web_TPageWidth&"'  border='0' align='center' cellpadding='0' cellspacing='0'>"&Vbcr)
		Response.Write("<tr><td valign='top'>"&Vbcr)
		Call Wodig.Get_Line 
		Response.Write("<table width='98%'  border='0' align='center' cellpadding='0' cellspacing='3'>"&Vbcr)
		Response.Write("<tr><td height='25' valign='top' class='mn'><div align='right'></div></td></tr>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td valign='top'>"&Vbcr)
		Response.Write("<form action='SrcSubmit.asp' method='post' name='frmdata' onSubmit='return frm_onsubmit(this);'>"&Vbcr)
		Response.Write("<table width='100%'  border='0' cellspacing='0' cellpadding='0'>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td width='120' height='25'>信息类别：</td>"&Vbcr)
		Response.Write("<td colspan='2'><font color='#000099'> "&Vbcr)
		Response.Write("<select name='src_childid' size='1' style=""width:100px;border:1px #cccccc solid"">"&Vbcr)
		Call WoDig.Get_SrcChild2(Session("_WTypeID"),0)
		Response.Write("</select>"&Vbcr)
		Response.Write("</font></td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td height='25'>信息标题：</td>"&Vbcr)
		Response.Write("<td colspan='2'><input name='src_title' size='40' class='input' maxlength='50' />"&Vbcr)
		Response.Write("</td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td valign='top'>信息内容：</td>"&Vbcr)
		Response.Write("<td colspan='2'>"&Vbcr)
		Response.Write("<table width='100%' border='0' cellpadding='0' cellspacing='0'>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td>"&Vbcr)
		Response.Write("<div class=""cntBox""><textarea style=""font-family:Tahoma,Arial;width:360px;height:66px;resize:none;line-height:21px;margin:4px 0 0 0px;padding:3px5px;overflow-y:auto;font-size:14px;border:1px solid#D0D0D0;word-wrap:break-word;word-break:break-all;border-radius:6px;-moz-border-radius:6px;-webkit-border-radius:6px;transition:border linear .2s,box-shadow linear .2s;-moz-transition:border linear .2s,-moz-box-shadow linear .2s;-webkit-transition:border linear .2s,-webkit-box-shadow linear .2s;background:url(../images/b3_100506.png) #fff repeat-x 0px -328px"" id=""msgTxts"" accesskey=""u"" name=""src_desc"" autocomplete=""off"" tabindex=""1"" onKeyUp=""countLengths("&TextContentTxtNum&")""></textarea><br /><font style=""color:red;"">限制字体最多能添加"&TextContentTxtNum&"个字体。</font></div>"&Vbcr)
		Response.Write("</td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("</table>"&Vbcr)
		Response.Write("</td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		if Web_IsUploadShowImg = 1 then
			Response.Write("<tr>"&Vbcr)
			Response.Write("<td height='90' valign='top'>图片上传：</td>"&Vbcr)
			Response.Write("<td width='90'><img src='"&Web_Noimage&"' align='left' name='src_img_2' width='80' height='80'/></td>"&Vbcr)
			Response.Write("<td width='372'> "&Vbcr)
			Response.Write("<a href='#' onClick=""window.open('Upload/upload_image.asp?formname=frmdata&ImgSrc=src_img_2&editname=src_img','','status=no,scrollbars=no,top=200,left=310,width=420,height=165')"">&gt;&gt;上传内容形象图片......</a>"&Vbcr)
			Response.Write("<input name='src_img' type='hidden'>"&Vbcr)
			Response.Write("<br>"&Vbcr)
			Response.Write("<span class='hot'>（建议尺寸为450*800px以内）</span></td>"&Vbcr)
			Response.Write("</tr>"&Vbcr)
		end if
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td height='25'>固定标签：</td>"&Vbcr)
		Response.Write("<td colspan='2'> "&Vbcr)
		
		Set Rs_SysTag = Conn.Execute("Select * from Liangjing_Tags Where Tag_TypeID="&Session("_WTypeID")&" and Tag_IsUse=true Order By Tag_OrderBy")
		i = 0
		while Not Rs_SysTag.Eof
			i = i + 1							
			Response.Write("<input type='checkbox' name='SelSysTags' value='"&Rs_SysTag("tag_ID")&"' OnClick='javascript:isAddSysTags(this);' /> "&Rs_SysTag("Tag_Name"))
			if i mod 6 = 0 then Response.Write("<br>")
			Rs_SysTag.MoveNext
		Wend
		Rs_SysTag.Close
		Set Rs_SysTag = Nothing
		
		Response.Write("<input type='hidden' name='SysTagNum' value='0' />"&Vbcr)
		Response.Write("<span class='hot'>(系统标签可选定三个) </span></td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td height='25'>自定标签：</td>"&Vbcr)
		Response.Write("<td colspan='2'>"&Vbcr)
		Response.Write("<input name='src_tags1' size='10' class='input' maxlength='50' />"&Vbcr)
		Response.Write("<input name='src_tags2' size='10' class='input' maxlength='50' />"&Vbcr)
		Response.Write("<input name='src_tags3' size='10' class='input' maxlength='50' />"&Vbcr)
		Response.Write("<span class='hot'>(可以自主扩充三个标签) </span></td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		if Web_SrcUrlShow=true then
		Response.Write("<tr>"&Vbcr)
        Response.Write("<td height='25'>网站链接：</td>"&Vbcr)
        Response.Write("<td colspan='2'>"&Vbcr)
		Response.Write("<input name='src_url' size='30' class='input' maxlength='50' value='http://'/>&nbsp;</td>"&Vbcr)
        Response.Write(" </tr>"&Vbcr)
		end if
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td height='30'>&nbsp;</td>"&Vbcr)
		Response.Write("<td colspan='2'>"&Vbcr)
		Response.Write("<input type='submit' name='Submit2' value=' 提 交 ' />"&Vbcr)
		Response.Write("<input type='hidden' name='action' value='addSrc' />"&Vbcr)
		Response.Write("</td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td>&nbsp;</td>"&Vbcr)
		Response.Write("<td colspan='2'>&nbsp;</td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("</table>"&Vbcr)
		Response.Write("</form>"&Vbcr)
		Response.Write("</td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("</table></td>"&Vbcr)
		Response.Write("<td width='1' valign='top' bgcolor='#E1E1E1'></td>"&Vbcr)
		Response.Write("<td width='"&Web_RightWidth&"' valign='top'>　<span class='hot'>只要回打字就可以建网站</span><br>"&Vbcr)
		Response.Write("&nbsp;&nbsp;<a href='http://www.liangjing.org/' target='_blank'>点击进入良精</a>！ <br>"&Vbcr)
       Call WoDig.leftMyconfig()
	    Response.Write("</td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("</table>"&Vbcr)
	End Sub


	Public Sub Get_ReSubmit				
		if action = "editSrc" then	
			Set Rs = Server.CreateObject("adodb.recordset")
			if  trim(Request.Form("src_Desc"))="" then 
				response.write"<script>alert('内容不能为空!');history.go(-1);</script>"
				response.end
			end if
			SelSysTags = Request("SelSysTags")	
			Sql = "Select * from Liangjing_Source Where Src_ID="&Src_ID
			if Session("_WIsSupper")=false then
				Sql = Sql & " and Src_UserID="&Session("_WUserID")
			end if
			Rs.open Sql,conn,1,2
			if Not Rs.eof then					
					Rs("src_TypeID")	= Session("_WTypeID")
					Rs("src_ChildID")	= Request.Form("src_ChildID")
					Rs("src_Title")		= Request.Form("src_Title")
					Rs("src_Desc")		= Request.Form("src_Desc")
					if Web_IsUploadShowImg = 1 then 
						src_Img 			= Request.Form("src_Img")	
						if isNull(src_Img) or src_Img = "" then src_Img = Web_Noimage
						Rs("src_Img")		= src_Img
					end if
				if Web_SrcUrlShow=true then
                  'rs("src_Url")=WoDig.Get_UrlStr(request.form("src_Url"))
				    rs("src_Url")=trim(request.form("src_Url"))
				end if
					Rs("src_IP")		= Request.ServerVariables("REMOTE_ADDR")
					Rs("src_AddDate")	= Now()
					Rs("src_ModifyDate")= Now()
				Rs.Update
				Rs.Close
				Set Rs = Nothing				
				if err.number = 0 then
					Max_SrcID = Src_ID
					conn.execute("Delete from Liangjing_srcTags where srctag_srcID="&src_ID)	'删除原有的标签
					SelSysTags_Arr = split(SelSysTags,",")
					for i = lbound(SelSysTags_Arr) to ubound(SelSysTags_Arr)
						Sql = "Insert Into Liangjing_SrcTags(SrcTag_SrcID,SrcTag_TagID,SrcTag_TType,SrcTag_IP) " & _
							"Values("&Max_SrcID&","&SelSysTags_Arr(i)&",true,'"&Request.ServerVariables("REMOTE_ADDR")&"')"
						Conn.Execute(Sql)
					next
					src_tags1 = Request("src_tags1")
					src_tags2 = Request("src_tags2")
					src_tags3 = Request("src_tags3")
					if src_tags1 <> "" then	'添加新的标签
						Call WoDig.Add_NewTags(Max_SrcID,src_tags1)
					end if
					if src_tags2 <> "" then
						Call WoDig.Add_NewTags(Max_SrcID,src_tags2)
					end if
					if src_tags3 <> "" then
						Call WoDig.Add_NewTags(Max_SrcID,src_tags3)
					end if
					Response.Redirect("SrcShow.asp?Src_ID="&Src_ID)
				end if
				
			else
				Call Msgbox2("网站不存在，或您没有权限编辑此资料的发布！",1,"javascript:history.back();")
				Response.End()
			end if	
			Set Rs = nothing
			Response.End()
		end if				
	End Sub
	Public Sub Get_EditSrc
		Set Rs = Server.CreateObject("adodb.recordset")
		Sql = "Select * from Liangjing_Source Where Src_ID="&Src_ID
		if Session("_WIsSupper")=false then
			Sql = Sql & " and Src_UserID="&Session("_WUserID")
		end if		
		Rs.open Sql,conn,1,2
		if Rs.eof then			
			Response.End()
		end if
		Response.Write("<table width='"&Web_TPageWidth&"' height='20'  border='0' align='center' cellpadding='0' cellspacing='0'>"&Vbcr)
		Response.Write("<tr><td></td></tr>"&Vbcr)
		Response.Write("</table>"&Vbcr)
		Response.Write("<table width='"&Web_TPageWidth&"' height='20'  border='0' align='center' cellpadding='0' cellspacing='0'>"&Vbcr)
		Response.Write("<tr><td height='25' class='ptttd1'>修改资源发布：</td></tr>"&Vbcr)
		Response.Write("</table>"&Vbcr)
		Call Wodig.Get_Line 
		Response.Write("<table width='"&Web_TPageWidth&"'  border='0' align='center' cellpadding='0' cellspacing='0'>")
		Response.Write("<tr>")
		Response.Write("<td valign='top'>")	
		Response.Write("<table width='98%'  border='0' align='center' cellpadding='0' cellspacing='3'>")
		Response.Write("<tr>")
		Response.Write("<td valign='top'>")
		Response.Write("<form action='ReSubmits.asp' method='post' name='frmdata' onSubmit='return frm_onsubmit(this);'>"&Vbcr)		
		Response.Write("<table width='100%'  border='0' cellspacing='0' cellpadding='0'>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td width='120px' height='25'>类　　别：</td>"&Vbcr)
		Response.Write("<td colspan='2'><font color='#000099'>"&Vbcr)
		Response.Write("<select name='src_childid' size='1' class='input' style=""width:100px;border:1px #cccccc solid"">"&Vbcr)
		Call WoDig.Get_SrcChild2(Session("_WTypeID"),Rs("Src_ChildID"))
		Response.Write("</select>"&Vbcr)
		Response.Write("</font></td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td height='25'>标　　题：</td>"&Vbcr)
		Response.Write("<td colspan='2'><input name='src_title' size='30' class='input' maxlength='50' value='"&Rs("Src_Title")&"' />"&Vbcr)
		Response.Write("</td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td height='25'>固定标签：</td>"&Vbcr)
		Response.Write("<td colspan='2'>"&Vbcr)
		Set Rs_Tag3 = Server.CreateObject("adodb.recordset")
		Rs_Tag3.cursorlocation = 3
		Sql_Tag3 = "Select * from Liangjing_SrcTags Where SrcTag_SrcID="&src_id&" and srctag_ttype=true"
		Rs_Tag3.open Sql_Tag3,conn					
		while not Rs_Tag3.eof
			G_Tags = G_Tags & Rs_Tag3("SrcTag_TagID") & ","
			Rs_Tag3.MoveNext
		wend
		SysTagNum = Rs_tag3.RecordCount
		G_TagsArr = split(G_Tags,",")
		Rs_Tag3.Close
		Set Rs_Tag3 = Nothing				
		Set Rs_SysTag = Conn.Execute("Select * from Liangjing_Tags Where Tag_IsUse=true Order By Tag_OrderBy")
		i = 0
		while Not Rs_SysTag.Eof
			i = i + 1
			Checked = ""
			for i_4 = lbound(G_TagsArr) to ubound(G_TagsArr) - 1							
			if cint(trim(G_TagsArr(i_4))) = cint(Rs_SysTag("tag_ID")) then
			Checked = " Checked"
			end if
		next		
		Response.Write("<input type='checkbox' "&Checked&" name='SelSysTags' value='"&Rs_SysTag("tag_ID")&"' OnClick='javascript:isAddSysTags(this);' /> "&Rs_SysTag("Tag_Name"))
		if i mod 4 = 0 then Response.Write("<br>")
		Rs_SysTag.MoveNext
		Wend
		Rs_SysTag.Close
		Set Rs_SysTag = Nothing
		Response.Write("<input type='hidden' name='SysTagNum' value='"&SysTagNum&"' />"&Vbcr)
		Response.Write("<span class='hot'>(系统标签可选定三个) </span></td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td height='25'>自定标签：</td>"&Vbcr)
		Response.Write("<td colspan='2'>"&Vbcr)
		Set Rs_Tag2 = Server.CreateObject("adodb.recordset")
		Rs_Tag2.Cursorlocation = 3
		Sql_Tag2 = "Select * from Liangjing_SrcTags Where SrcTag_SrcID="&src_id&" and srctag_ttype=false"
		Rs_Tag2.open Sql_Tag2,conn
		r_count = Rs_Tag2.RecordCount
		if Rs_Tag2.eof then
		Response.Write("<input name='src_tags1' type='text' size='10'>&nbsp;")
		Response.Write("<input name='src_tags2' type='text' size='10'>&nbsp;")
		Response.Write("<input name='src_tags3' type='text' size='10'>")
		else
		if r_count >=1 then 
		Response.Write("<input name='src_tags1' type='text' size='10' value='"&Rs_Tag2("SrcTag_Name")&"'>&nbsp;")			
		end if
		if r_count >=2 then 
		Rs_Tag2.MoveNext
		Response.Write("<input name='src_tags2' type='text' size='10' value='"&Rs_Tag2("SrcTag_Name")&"'>&nbsp;")				
		elseif r_count <2 and r_count >=1 then
		Response.Write("<input name='src_tags2' type='text' size='10'>&nbsp;")
		Response.Write("<input name='src_tags3' type='text' size='10'>")
		end if
		if r_count >=3 then 
		Rs_Tag2.MoveNext
		Response.Write("<input name='src_tags3' type='text' size='10' value='"&Rs_Tag2("SrcTag_Name")&"'>")
		elseif r_count <3 and r_count >=2 then
		Response.Write("<input name='src_tags3' type='text' size='10'>")
		end if
		end if						
		Response.Write("<span class='hot'>(可以自主扩充三个标签) </span></td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		if Web_SrcUrlShow=true then
		Response.Write("<tr>"&Vbcr)
        Response.Write("<td height='25'>网站链接：</td>"&Vbcr)
        Response.Write("<td colspan='2'>"&Vbcr)
		Response.Write("<input name='src_url' size='30' class='input' maxlength='50'"&Vbcr)
		if Rs("Src_Url")<>"http://" and Rs("Src_Url")<>"" then
		Response.Write(" value='"&Rs("Src_Url")&"'"&Vbcr)
		else
       Response.Write(" value='http://'"&Vbcr)
	   end if
		Response.Write(" />&nbsp;</td>"&Vbcr)
        Response.Write(" </tr>"&Vbcr)
		end if
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td valign='top'>内　　容：</td>"&Vbcr)
		Response.Write("<td colspan='2'><textarea style=""font-family:Tahoma,Arial;width:360px;height:66px;resize:none;line-height:21px;margin:4px 0 0 0px;padding:3px5px;overflow-y:auto;font-size:14px;border:1px solid#D0D0D0;word-wrap:break-word;word-break:break-all;border-radius:6px;-moz-border-radius:6px;-webkit-border-radius:6px;transition:border linear .2s,box-shadow linear .2s;-moz-transition:border linear .2s,-moz-box-shadow linear .2s;-webkit-transition:border linear .2s,-webkit-box-shadow linear .2s;background:url(../images/b3_100506.png) #fff repeat-x 0px -328px"" onKeyUp=""countLengths("&TextContentTxtNum&")"" id=""msgTxts"" name='src_desc' cols='45' rows='10' class='input'>"&Rs("Src_Desc")&"</textarea>"&Vbcr)
		Response.Write("</td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		if Web_IsUploadShowImg = 1 then
			Response.Write("<tr>"&Vbcr)
			Response.Write("<td height='90' valign='top'>图片上传：</td>"&Vbcr)
			Response.Write("<td width='90'><img src='"&Rs("src_img")&"' align='left' name='src_img_2' width='80' height='80'/></td>"&Vbcr)
			Response.Write("<td width='372'>"&Vbcr)
			Response.Write("<a href='#' onClick=""window.open('Upload/upload_image.asp?formname=frmdata&ImgSrc=src_img_2&editname=src_img','','status=no,scrollbars=no,top=200,left=310,width=420,height=165')"">&gt;&gt;上传形象图片......</a>"&Vbcr)
			Response.Write("<input name='src_img' type='hidden' value='"&rs("src_img")&"'>"&Vbcr)
			Response.Write("<br>"&Vbcr)
			Response.Write("<span class='hot'>（建议尺寸为160px以内）</span></td>"&Vbcr)
			Response.Write("</tr>"&Vbcr)
		end if
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td height='30'>&nbsp;</td>"&Vbcr)
		Response.Write("<td colspan='2'>"&Vbcr) 
		Response.Write("<input type='submit' name='Submit2' value=' 提 交 ' />"&Vbcr)
		Response.Write("<input type='hidden' name='action' value='editSrc' />"&Vbcr)
		Response.Write("<input type='hidden' name='Src_ID' value='"&Src_ID&"' />"&Vbcr)
		Response.Write("</td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("<tr>"&Vbcr)
		Response.Write("<td>&nbsp;</td>"&Vbcr)
		Response.Write("<td colspan='2'>&nbsp;</td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("</table>"&Vbcr)
		Response.Write("</form>"&Vbcr)
		Response.Write("</td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("</table></td>"&Vbcr)
		Response.Write("<td width='1' valign='top' bgcolor='#E1E1E1'></td>"&Vbcr)
		Response.Write("<td width='"&Web_RightWidth&"' valign='top'>　<span class='hot'>只要你会打字就可以建网站</span><br>"&Vbcr)
		Response.Write("&nbsp;&nbsp;<a href='http://www.liangjing.org' target='_blank'>良精一下一下</a>！ <br>"&Vbcr)
		Call WoDig.leftMyconfig()
	    Response.Write("</td>"&Vbcr)
		Response.Write("</tr>"&Vbcr)
		Response.Write("</table>"&Vbcr)
	End Sub
End Class
%>